home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / flipcomment.fpl < prev    next >
Text File  |  1995-07-18  |  501b  |  20 lines
  1. /* FlipComment.FPL Copyright Niklas Angare */
  2.  
  3. export void FlipComment() {
  4.    string line = GetLine();
  5.  
  6.    if(strlen(line)>1) {
  7.       if(strcmp(substr(line, 0, 2), "/*"))    /* Add comment */
  8.          line = sprintf("/*%s*/\n", substr(line, 0, strlen(line)-1));
  9.       else {                    /* Remove comment */
  10.          line = substr(line, 2, strlen(line)-5);
  11.          line = joinstr(line, "\n");
  12.       }
  13.       DeleteLine(1);
  14.       Output(line);
  15.    }
  16.    else CursorDown(1);
  17. }
  18.  
  19. AssignKey("FlipComment();", "alt c");
  20.